gusucode.com > 忠网网站广告管理系统 ZonGG V1.3 > 忠网网站广告管理系统 ZonGG V1.3\code\GGplaceXs_5.asp

    <!-- #include file="include/Config.asp" -->
<!-- #include file="include/Conn.asp" -->
<!-- #include file="include/Function.asp" -->

<%
    ''///////////////// 水平运动
 
	id=trim(request.querystring("id"))
	
	
 IF isnumeric(id) then 	
	
		Pid=cint(id)
		Pname=trim(request("Pname"))
		Plei=trim(request("Plei"))
		Pcss=trim(request("Pcss"))
		Cid=trim(request("Cid"))
		ADids=trim(request("ADids"))
		
			'' 得到对齐方式
			dq=PubFgdy(Pcss,",",Ubound(split(Pcss,",")))
			
			'' 得到背景
			if PubFgdy(Pcss,",",Ubound(split(Pcss,","))-1)<>"" then
			bg=" bgcolor='"&replace(PubFgdy(Pcss,",",Ubound(split(Pcss,","))-1),"＃","#")&"'"
			else
			bg=""
			end if
			
			
			'' 得到运动方向
			fx=PubFgdy(Pcss,",",7)		
							
			'' 得到运动模式
			ms=PubFgdy(Pcss,",",10)
			
			
			'' 得到速度（数量）
			if isnumeric(PubFgdy(Pcss,",",8)) then
			sl=cint(PubFgdy(Pcss,",",8))
			else
			sl=6
			end if
			''''''''''''''''
			
			'' 得到速度（延迟）
			if isnumeric(PubFgdy(Pcss,",",9)) then
			yc=cint(PubFgdy(Pcss,",",9))
			else
			yc=90
			end if
			''''''''''''''''
			'onMouseover="this.scrollAmount=0" onClick="this.scrollAmount=0"  onMouseout="this.scrollAmount=4" 
			
	
			xsnr = xsnr &  "<marquee onMouseover='this.scrollAmount=0' onMouseout='this.scrollAmount="&sl&"' scrollamount='"&sl&"' scrolldelay='"&yc&"' direction='"&fx&"' behavior='"&ms&"' align='"&dq&"' width='100%' height='100%' "&bg&">"
	
			xsnr = xsnr &  "<table   border='0' cellpadding='0' style='border-collapse: collapse'   align='"&dq&"'><tr>"
			
			if  trim(ADids)<>"" and instr(trim(ADids),",")=0  then
			Aid=cint(trim(ADids))		
			Call GgtiaoXs(Aid)		
			else
			
			ads=Ubound(split(ADids,","))+1
			
			'' 得到每列显示数
			if isnumeric(PubFgdy(Pcss,",",4)) then
			ds=cint(PubFgdy(Pcss,",",4))
			else
			ds=Ubound(split(ADids,","))+1
			end if
			''''''''''''''''			
	
			'' 得到行间距
			if isnumeric(PubFgdy(Pcss,",",5)) then
			hjj=cint(PubFgdy(Pcss,",",5))
			else
			hjj=10
			end if
			''''''''''''''''
			
			'' 得到列间距
			if isnumeric(PubFgdy(Pcss,",",6)) then
			ljj=cint(PubFgdy(Pcss,",",6))
			else
			ljj=6
			end if
			''''''''''''''''	
			
			
			for j=0 to Ubound(split(adids&",",","))-1  '' 循环排列显示开始
			
			if isnumeric(PubFgdy(ADids,",",j))=true then
			
			Aid=Cint(PubFgdy(ADids,",",j))
			
			xsnr = xsnr &  "<td align='"&dq&"'>"
			
			Call GgtiaoXs(Aid)
			
			xsnr = xsnr &  "</td>"
			
			if (j+1)mod ds >0 then xsnr = xsnr &  FljjCode(ljj) 
			
			end if	
			
			'xsnr = xsnr &  FhjjCode(hjj)
			
			if ds=0 or ds="" then ds=1
					
			if (j+1)mod ds =0 and j+1<ads then xsnr = xsnr &  "</tr><tr><td>"&FhjjCode(hjj)&"</td></tr><tr>"
			
			next 								'' 循环排列显示结束
			
			
			end if	
			
			xsnr = xsnr &  "</tr></table>"

			xsnr = xsnr &  "</marquee>"
			
		response.write "<script>document.write(unescape("""&escape(xsnr)&"""));</script>"	

end IF


%>